home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / MLT / XTRACE311.sit / XTRACE311 / X-TRACE 3.1.1.rsrc / TEXT_701_rox.xt3.txt < prev    next >
Text File  |  1996-09-01  |  2KB  |  85 lines
  1. xtrace    "ROX; Rokkaku-Daioh data direct import script"
  2. {
  3.     pragma    smooth_with_bound=off;
  4.  
  5.     nvar    rox_vsmooth=120, rox_asmooth=-1;
  6.     nvar    rox_line_thick=0.01;
  7.  
  8.     smooth    rox_vsmooth,rox_asmooth : model
  9.     {
  10.         nmacro    rox_file_name="rox.rok";
  11.         static : roku    $(rox_file_name) =
  12.         {
  13.             roku_line    rox_line_thick;
  14.         };
  15.         ifvar    roku_glid
  16.         {
  17.             attr    green=
  18.             {
  19.                 color    0,1,0;
  20.                 diff    1,0;
  21.             };
  22.             procedure    glin    x1,y1,z1, x2,y2,z2
  23.             {
  24.                 para    x1,y1,z1;
  25.                 leverz    x2 - x1,y2 - y1,z2 - z1;
  26.                 sim        1,1,sqrt (sq (x2 - x1) + sq (y2 - y1) + sq (z2 - z1));
  27.                 boundary    oval    0,0,0.5, 0,0,1, 0.5*sqrt (3),sqrt (3)
  28.                 {
  29.                     and
  30.                     {
  31.                         plane    0,0,1, 0,0,1;
  32.                         cylind    0,0,0, 0,0,1, 0.005;
  33.                         plane    0,0,0, 0,0,-1;
  34.                     }
  35.                 }
  36.             }
  37.  
  38.             glin    0.5,0,0.5, -0.5,0,0.5;
  39.             glin    0.5,0,-0.5, -0.5,0,-0.5;
  40.  
  41.             glin    0.5,0.5,0.25, -0.5,0.5,0.25;
  42.             glin    0.5,0.5,0, -0.5,0.5,0;
  43.             glin    0.5,0.5,-0.25, -0.5,0.5,-0.25;
  44.  
  45.             glin    0.25,0.5,0.5, 0.25,0.5,-0.5;
  46.             glin    0,0.5,0.5, 0,0.5,-0.5;
  47.             glin    -0.25,0.5,0.5, -0.25,0.5,-0.5;
  48.  
  49.             glin    0.5,0.5,0.5, -0.5,0.5,0.5;
  50.             glin    -0.5,0.5,0.5, -0.5,-0.5,0.5;
  51.             glin    -0.5,-0.5,0.5, 0.5,-0.5,0.5;
  52.             glin    0.5,-0.5,0.5, 0.5,0.5,0.5;
  53.  
  54.             glin    0.5,0.5,-0.5, -0.5,0.5,-0.5;
  55.             glin    -0.5,0.5,-0.5, -0.5,-0.5,-0.5;
  56.             glin    -0.5,-0.5,-0.5, 0.5,-0.5,-0.5;
  57.             glin    0.5,-0.5,-0.5, 0.5,0.5,-0.5;
  58.  
  59.             glin    0.5,0.5,0.5, 0.5,0.5,-0.5;
  60.             glin    -0.5,0.5,0.5, -0.5,0.5,-0.5;
  61.             glin    -0.5,-0.5,0.5, -0.5,-0.5,-0.5;
  62.             glin    0.5,-0.5,0.5, 0.5,-0.5,-0.5;
  63.         }
  64.     }
  65.  
  66.     nvar    rox_nrefl=0, rox_nshdw=0;
  67.     cond    0,1, rox_nrefl,rox_nshdw,0;
  68.     screen    fwid,fwid,fbit;
  69.  
  70.     nvar    roku.ar=1,roku.ag=1,roku.ab=1;
  71.     ambi    1, roku.ar,roku.ag,roku.ab, 0.3, 0,0;
  72.  
  73.     screwy    roku.pp*180/PI;
  74.     screwx    roku.pq*180/PI;
  75.     screwz    roku.pr*180/PI;
  76.     para    -roku.dx,-roku.dy,-roku.dz;
  77.     sim    1/roku.bx,1/roku.by,1;
  78.     view    0.8, 0,-1,0, 0,0,1, 0,0,-1;
  79.  
  80.     nvar    roku.lx=0.574988908,
  81.         roku.ly=0.511101252,
  82.         roku.lz=0.638876565;
  83.     inf    -roku.lx,-roku.ly,-roku.lz, 0.267, 0.7,0.7,0.7;
  84. }
  85.